home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 November / CHIP Kasım 1997.iso / ARACLAR / TER500 / 500TER._XE / SCRIPT.EXE / SOUND.TSL < prev    next >
Encoding:
Text File  |  1995-08-09  |  913 b   |  41 lines
  1. % -----------------------------------------------------------------------------
  2. % Sound demonstration script                           *TERMINATE PRESCRIPTION*
  3. % -----------------------------------------------------------------------------
  4. %
  5. %  Version          : 1.00
  6. %  Filename         : SOUND.TSL
  7. %  Company          : SerWiz Comm
  8. %  Programmer       : Bo Bendtsen
  9. %  Module created   : 09 Aug 1995
  10. %  Latest revision  : 09 Aug 1995
  11. %  Language/version : Terminate Prescription 1.00
  12. %  Remarks          : Sound functions
  13. %
  14. % -----------------------------------------------------------------------------
  15.  
  16. Function AbortSound()
  17.   Sound 600
  18.   Wait 25
  19.   Sound 500
  20.   Wait 25
  21.   Nosound
  22. EndFunc
  23.  
  24. Function OkSound()
  25.   Sound 800
  26.   Wait 25
  27.   Sound 1000
  28.   Wait 25
  29.   Sound 1200
  30.   Wait 25
  31.   Nosound
  32. EndFunc
  33.  
  34. ClearScreen
  35. PrintLn "Ok"
  36. OkSound()
  37. Wait 100
  38. PrintLn "Abort"
  39. AbortSound()
  40.  
  41.